home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / l / letov3.0.lha / ARexx / FontGet_OS.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-07  |  643b  |  36 lines
  1. /* Skrypt ARexx'a dla Leto 2.2
  2. ** Uûycie komendy FontGet [0...9]
  3. ** Funkcja ta zwraca informacje o czcionce
  4. ** Gdy taka czcionka wystëpuje wtedy rc=0, gdy jej brak to rc=1
  5. ** Gdy rc=0 to:
  6. ** LT_FontName zawiera nazwe czcionki
  7. ** LT_FontSize zawiera jej rozmiar
  8. */
  9.  
  10. /* address    'rexx_leto' */
  11.  
  12. Options results
  13.  
  14. CR= '0A'X    /* znacznik koïca linii */
  15.  
  16. JumpTo 0
  17. Text '*********************************'CR
  18. Text 'Spis dostëpnych czcionek w Leto :'CR
  19. Text '*********************************'CR
  20.  
  21. do i=0 to 9
  22.     Text 'Czcionka F'i+1':'
  23.     FontGet i
  24.     FontSet i
  25.     if rc=0 then Text LT_FontName '    o rozmiarze 'LT_FontSize''CR
  26.     else Text 'Brak'CR
  27. end
  28.  
  29. Exit
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.